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PREFACE 


This reference handbook provides useful 
information for people who want to be 
able to read COBOL programs with a high 
degree of comprehension. It is designed 
to be studied in conjunction with the 
COBOL Program Fundamentals programmed 
instruction textboo orm R29-0205). 


The reader of these publications is 
expected to have prior experience in 
data processing and computer programming, 
as well as knowledge of System/360 
features, but no prior knowledge of 
COBOL. 


This publication is not intended to 
provide all of the information a 
student needs in order to compose 
original COBOL programs. Additional 
information for that purpose is given 
in the next course of this series, 
Writing Programs in COBOL. The 
publications that make up that course 
are a programmed instruction text 
(Form R29-0210) and a reference hand- 
book (Form R29-0211). 


Complete specifications for System/360 
COBOL may be found in the reference 


manual, IBM Operating System/360 COBOL 
Lanquage (Form C28-6516—-3). 
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This manual is the result of 
contributions made by all of the 
above-mentioned organizations. 

no warranty, express or implied, 
is made by any contributor or by 
the committee as to the accuracy 
and functioning of the programming 
system and language. Moreover, no 
responsibility is assumed by any 
contributor, or by the committee, 
in connection therewith. 
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It is reasonable to assume that a 
number of improvements and addi- 
tions will be made to COBOL. Every 
effort will be made to insure that 
the improvements and corrections 
will be made in an orderly fashion, 
with due recognition of existing 
users' investments in programming. 
However, this protection can be 
positively assured only by individ- 
ual implementors. 


Procedures have been established 
for the maintenance of COBOL. 
Inquiries concerning procedures 

and methods for proposing changes 
should be directed to the Executive 
Committee of the Conference on 
Data Systems Languages. 


The authors and copyright holders 
of the copyrighted material used 
herein: FLOW-MATIC (Trade-mark of 
the Sperry-Rand Corporation) , 
Programming for the UNIVAC (® I and 
II, Data Automation Systems © 1958, 
1959, Sperry-Rand Corporation; 

IBM Commercial Translator, Form No. 
F28-8013, copyrighted 1959 by IBM; 
FACT, DSO 27A5260-2760, copyrighted 
1960 by Minneapolis-Honeywell; have 
specifically authorized the use of 
this material, in whole or in part, 
in the COBOL specifications. Such 
authorization extends to the repro- 
duction and use of COBOL specifi- 
cations in programming manuals or 
similar publications. 


Any organization interested in 
reproducing the COBOL report and 
initial specifications in whole or 
in part, using ideas taken from 
this report or utilizing this 
report as the basjs for an instruc- 
tion manual or any other purpose 
is free to do so. However, all 
such organizations are requested 
to reproduce this section as part 
of the introduction to the 
document. Those using a short 
passage, as in a book review, are 
requested to mention "COBOL" in 
acknowledgement of the source, but 
need not quote this entire section. 
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INTRODUCTION TO COBOL 


Origins. COBOL (COmmon Business Oriented Language) is the result of 

an effort to establish a standard language for programming computers 

to do business data processing. The original specifications for COBOL 
were drawn up in 1959 by representatives of several computer manu- 
facturers and users. The specifications have been revised and improved 
several times since 1959. 


Aims. COBOL is designed for producing source programs that are 


e standardized, using standard language elements in standard 
entry formats within a standard program structure. COBOL 
endeavors to provide one common language for all computers, 
regardless of make or model. 


@ easy to understand, because they are written in English. 
The bulk of every COBOL program is made up of English words 
in entries that resemble English sentences. Good COBOL 
programs are easy to read and comprehend, for non-programmers 
as well as for programmers. 


e oriented to business procedures, not to the technology of 
computing machinery. This makes it possible for business 
people who are not computer experts to use COBOL. 


Differences. In order to adjust to major differences in computers, 
certain Language differences are allowed in COBOL for individual 
computer systems, within the framework of one common language. 
System/360 COBOL is different in some ways from COBOL for other 
computers. (This handbook is concerned only with System/360 COBOL.) 
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COBOL PROGRAMMING SYSTEM TERMS 
COBOL program: a source program written in COBOL, from which an 
Object program is compiled. 


Object program: the machine language program compiled from a COBOL 
program. 


Compile: to use a computer to produce an object program from a COBOL 
program. During compilation, listings of the source and object programs 
are printed, as well as diagnostic messages that pinpoint errors the 
compiler has discovered in the COBOL program. 


COBOL compiler: a program supplied by IBM that directs the computer 
during compilation. 


Source computer: the computer used to compile the object program. 


Object computer: the computer used to execute the object program. 
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LANGUAGE ELEMENTS 

The COBOL language is made up of these elements: 
e Reserved words 

e Programmer-supplied names 


@ Symbols 


e Literals 
e Level numbers 
e Pictures 


Programmers compose programmer-supplied names, literals, and pictures. 
Of course, there are rules that govern the choice and arrangement of 
characters. Within the latitude permitted by the rules, however, 
programmers are free to compose an almost infinite number’ of names, 
literals, and pictures to suit particular needs in programs. 


By contrast, the reserved words, symbols, and level numbers are 
provided in fixed séts, from which programmers select the ones they 
need. Programmers are not allowed to invent new reserved words, 
symbols, or level numbers. Even so, there are rules to follow -- 

for example, in determining which reserved word to use for a particular 
entry. 





Examples of elements. The sample COBOL program entry below contains 
all six 


elements. 
programmer-supplied reserved 
name words literal 






a Recoabe ielrorel Xx] Value fle 
{ ff be ee 


level picture symbole 
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RESERVED WORDS 


Approximately 250 English words and abbreviations have been set aside 
to be used only for certain purposes. Special meanings have been 
preassigned to the reserved words; therefore, the programmer 


e does not define reserved words. 

e has no way of changing the meanings of reserved words. 
e cannot add words of his own to the reserved word list. 
© cannot substitute other words for those on the list. 

e must not alter or misspell reserved words. 

© may use reserved words only for specified purposes. 


Types of reserved words. Some of the main types of reserved words are: 


@ words that identify program units; for instance, SECTION, 
ENVIRONMENT, and WORKING=STORAGE. 


e words that identify or explain parts of entries; for 
instance, BLOCK, PICTURE, and VALUE. 


e words that specify actions to be taken, like READ, MOVE, 
and ADD. 


e words with specific functional meanings, such as NEGATIVE, 
COMPUTATIONAL, and EQUAL. 


e words that represent certain data values; for instance, 
ZERO, SPACES, and HIGH-VALUE. (See "Figurative constants" below.) 


Figurative constants. As a rule, it is up to the programmer to define 
data items and to supply names for them. However, a few data items 
with predefined values have been built right into the COBOL language. 
The names of these built-in data items are reserved words which are 
called “figurative constants". 


The most frequently used figurative constants are ZERO and SPACE. 
These reserved words (and their plural forms, ZERO or ZEROES, and 
SPACES) represent the data characters zero and blank, respectively. 
The programmer may use these words whenever zero or blank values are 
required in a program; for instance, he might write MOVE ZEROS TO 
TOTAL-WAGES in order to put all-zeros into a data item. Similarly, he 
might write MOVE SPACE TO CONTROL-CODE in order to blank-out a data 
item. 


zs 
4 


(Continued on next page) 
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RESERVED WORDS (continued) 


Complete list of reserved words for System/360 COBOL. 


ACCEPT 
ACCESS 
ACTUAL 
ADD 
ADVANCING | 
AFTER 

ALL 
ALPHABETIC 
ALTER 
ALTERNATE 
AND 

APPLY 

ARE 

AREA 
AREAS 
ASCENDING 
ASSIGN 

AT 

AUTHOR 


BEFORE 
BEGINNING 
BLANK 
BLOCK 

BY 


CHANGED 
CHARACTERS 
CHECKING 
CLOCK-UNITS 
CLOSE 

COBOL 

CODE 

COLUMN 

COMMA 
COMPUTATIONAL 
COMPUTATIONAL-1 
COMPUTATIONAL~2 
COMPUTATIONAL-3 
COMPUTE 
CONFIGURATION 
CONSOLE 
CONTAINS 
CONTROL 
CONTROLS 

COPY 
CORRESPONDING 
CREATING 

CYCLES 


DATA 


DATE-COMPILED 
DATE-WRITTEN 
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DE 
DECIMAL~POINT 
DECLARATIVES 
DEPENDING 
DESCENDING 
DETAIL 
DIRECT 
DIRECT-ACCESS 
DISPLAY 
DISPLAY-ST 
DIVIDE 
DIVISION 


ELSE 
END 
ENDING 
ENTER 
ENTRY 
ENVIRONMENT 
EQUAL 
ERROR 
EVERY 
EXAMINE 
XHIBIT 
EXIT 


FD 

FILE 

FILES 
FILE-CONTROL 
FILE-LIMIT 
FILLER 

FINAL 

FIRST 
FOOTING 

FOR 
FORM-OVERFLOW 
FROM 


GENERATE 
GIVING 
GO 
GREATER 
GROUP 


HEADING 
HIGH~ VALUE 
HIGH-VALUES 
HOLD 


IBM- 360 
IDENTIFICATION 
IF 

IN 

INCLUDE 


INDEXED 
INDICATE 
INITIATE 
INPUT 
INPUT-OUTPUT 
INSTALLATION 
INTO 

INVALID 

I-0 
I-O0-CONTROL 
Is 


JUSTIFIED 
KEY 


LABEL 
LABELS 
LAST 
LEADING 
LESS 

LINE 
LINE~COUNTER 
LINES 
LINKAGE 
LOCK 
LOW-VALUE 
LOW-VALUES 


MODE 
MORE-LABELS 
MOVE 
MULTIPLY 


NAMED 
NEGATIVE 
NEXT 

NO 

NOT 
NOTE 
NUMERIC 


OBJECT-COMPUTER 
OCCURS 

OF 

OH 

OMITTED 


ORGANIZATION 
OTHERWISE 
OUTPUT 

OV 

OVERFLOW 


PAGE 
PAGE-COUNTER 
PERFORM 

PF 

PH 

PICTURE 

PLUS 
POSITIVE 
PRINT-SWITCH 
PROCEDURE 
PROCEED 
PROCESS 
PROCESSING 
PROGRAM-ID 
PROTECTION 


QUOTE 
QUOTES 


RANDOM 

RD 

READ 
READY 
RECORD 
RECORDING 
RECORDS 
REDEFINES 
REEL 
RELATIVE 
RELEASE 
REMARKS 
REPLACING 
REPORT 
REPORTING 
REPORTS 
RERUN 
RESERVE 
RESET 
RESTRICTED 
RETURN 
REVERSED 
REWIND 
REWRITE 


SA 


SD 
SEARCH 
SECTION 
SECURITY 





SELECT 
SENTENCE 
SEQUENTIAL 
SIZE 

SORT 

SOURCE 
SOURCE-COMPUTER 
SPACE 

SPACES 
SPECIAL~NAMES 
STANDARD 

STOP 

SUBTRACT 

SUM 

SYMBOLIC 
SYSIN 

SYSOUT 
SYSPUNCH 


TALLY 
TALLYING 
TERMINATE 
THAN 

THEN 

THRU 
TIMES 

TO 

TRACE 
TRACK-AREA 
TRACKS 
TRANSFORM 
TRY 

TYPE 


UNIT 

UNIT- RECORD 
UNITS 

UNTIL 

UPON 

USAGE 

USE 

USING 
UTILITY 


VALUE 
VARYING 


WHEN 

WITH 
WORKING-STORAGE 
WRITE 
WRITE-ONLY 


ZERO 
ZEROES 
ZEROS 


PROGRAMMER-SUPPLIED NAMES 


Names for data items, data conditions, and procedures are supplied by 
programmers. These names must be defined within the program in which 
they are used, since, unlike reserved words, they do not have pre- 
assigned meanings. 


Rules governing programmer-supplied names, 


A name may be as many as 30 characters long. 

It may contain letters, digits, and hyphens. 

Names of procedures may be composed entirely of digits, but 
names of data items and data conditions must contain at least 
one letter. 


A name must not begin or end with a hyphen, although there may 
be hyphens anywhere else in the name. 


Spaces (blanks) must not appear within a name. 


No name may be spelled exactly the same as a reserved word. 


Examples of programmer-supplied names in an entry. 
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SYMBOLS 





Symbols are special characters which, individually, have particular 


meanings for the compiler. 


Punctuation symbols -- used to punctuate program entries. 


. period 
; comma 
; semicolon 


; quotation mark 


() parentheses 


used to terminate entries 


used to separate operands or 
clauses in a series 


used to separate clauses ina 
series 


used to enclose non=<numeric literals 


used to enclose subscripts 


Arithmetic s ols -- found in arithmetic formulas. 


+ plus 

- minus 

* asterisk 
/ slash 


ak two asterisks 


= equal 


() parentheses 


addition; "plus" 
subtraction; "minus" 
multiplication; "times" 
division; "divided by" 


exponentiation; "raised to the 
power of" 


"make equal to". 
used to enclose quantities, to 


control the sequence in which 
operations are performed 


Condition symbols -- found in expressions which involve tests of 
ata conditions. 


= equal 
> greater than 
< less than 


() parentheses 
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“is equal to" 

"is greater than" 

"is less than" 

used to enclose expressions, 


to control the sequence in which 
conditions are evaluated 


1] 


LITERALS 


A literal is an actual value used in a program. Literals are 

supplied by programmers; but unlike a programmer-supplied name, a 
literal describes itself and needs no separate definition in the program. 
The two main types of literals are "numeric" and "non-numeric" literals. 


Rules governing numeric literals, 


e A numeric literal may be made up of digits, a plus sign or a 
minus sign, and a decimal point. 


e It may contain as many as 18 digits. 

e If there is a sign, it must be the leftmost character of the 
literal. 

e If there is no sign, the number is assumed to be positive. 

e A decimal point may appear anywhere in the number, except as 


the rightmost character. Whole numbers are written without 
decimal points. 


An example of a numeric literal in an entry. 


TUT MutifieicM Islets ely! T-lolslelsl TeliMilnic| Iplonuls]. 1 TTT TT 
Ne: numertc 


literal 








Rules governing non<numeric literals. 


e A non-numeric literal is always enclosed by quotation marks. 
The quotation marks are not part of the literal. 


e It may be as many as 120 characters long. 
e It may contain any character except a quotation mark. So, digits, 


letters, spaces, and all special characters except one, may be 
found in non-numeric literals. 


An example of a non-numeric literal in an entry. 

77 | melsslacellal [Tle crue veh TTT TT TTT TTT TTT 

PTT TT Wialelule! |olult! fol] Isirfojclkl'} ETT TTT TLE ET 
a non-numertea 


literal 
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LEVEL NUMBERS 


Level numbers are found in entries that assign names to data items and 
data values. The major purpose of level numbers is to designate the 
levels of data items, in relation to each other. The numbers that may 
be used are 01 through 49; 77; and 88. 


Level numbers 01 through 49 are used to designate the levels of data 
items that form records. Level number 01 is always assigned to the 
record as a whole, while 02 through 49 are assigned to items that are 
parts of records. 


Level number 77 is used in entries that describe independent data items, 
that is, items that are not records or parts of records. 


Level number 88 is used in entries that assign names to specific values 
that data items may assume. 


When an entry contains a level number, the level number is always the 


first element of the entry. The level number is followed either by a 
programmer-supplied name or the reserved word FILLER. 


Examples of level numbers in entries. 











, cine! cobleL| iictrumel bet 
numbers oo “TINCOMING,-Valeve [a‘[ 17 

eel Lolurrcloliiv) | Valu ue 2 DARE 

; 03 ACCOUNT NUMBER P | cr URE |9!991, 


level 


r 





_|@ 
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PICTURES 


Pictures describe certain characteristics of data items, such as 


e how many characters an item contains. 

e whether the characters are numeric, alphabetic, or alphanumeric. 
e whether the item has a sign. 

e where an assumed decimal point is located. 

& what editing (deletion, replacement, or insertion of characters) 


is to be done to form the item. 


Each picture is a string of characters, and may be from 1 to 30 
characters long. Pictures are composed of one or more of the 
characters listed below. (Each character or pair of characters has a 
symbolic meaning; the meanings of some of these characters are 
explained later in this book.) 


A B CR DB E K P §&§ V X¥X 20 9 * = , . $ * ¢( )Y 
Pictures may also contain numeric literals (unsigned whole numbers 
only) enclosed in parentheses. The literals provide an abbreviated 
way of repeating a picture character; for instance, X(20) means the 
same as 20 Xs in a row. 


In an entry, a picture is always preceded by the word PICTURE or by » 
the words PICTURE IS. 


Examples of pictures in entries. 


pictures 


/ 
ott Weider elictlueel bide oT \ tea on 
Toe! [striolckk|-Malcivlel.| lplilctruile! sisi tsislsi-lelel CT TTT 
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PROGRAM STRUCTURE 


COBOL programs are composed of entries arranged in divisions, sections, 
and paragraphs. In general, a division is made up of sections, and a 
section is made up of paragraphs. 


Divisions. All COBOL programs are divided into four separate divisions. 
The divisions have fixed names -- IDENTIFICATION, ENVIRONMENT, DATA, 
and PROCEDURE; and always appear in that order in a program. 


The beginning of each division is marked by a division header entry, 
which consists of the name of the division followed by the word DIVISION 
and a period. A division header always appears on a line by itself. 


Sections. Sections are not found in the Identification division. 

The Environment and Data divisions always contain sections, and the 
sections in those divisions have fixed names. In the Procedure 
division, sections are optional; there programmers may, if they wish, 
Create sections and supply names for them. 


Each section is identified by a header entry which consists of the 
section name followed by the word SECTION and a period. A section 
header usually appears on a line by itself. 


Paragraphs. All of the divisions except the Data division contain 
paragraphs. In the Identification and Environment divisions, the names 
of all paragraphs are fixed. In the Procedure division, paragraph 
names are supplied by programmers. 


Paragraphs are identified by header entries which consist of a name 
followed by a period. Paragraph headers do not contain the word 
PARAGRAPH. Also, a paragraph header does not have to appear on a line 
by itself; it must be the first entry on a line, but it may be followed 
on the same line by other entries of that paragraph. 


Entries. An entry can be defined as a series of two or more language 
elements, the last of which is a period. (However, the programmer 
cannot arbitrarily string together a bunch of elements, and call them 
an entry. The sequence of elements in each entry is dictated by 
precise format rules.) 


A paragraph header is probably the simplest entry, since it consists of 
a reserved word or a programmer-supplied name, and a period. Likewise, 


division and section headers are relatively simple entries. Most 
entries, though, are longer and more complex. 


(Continued on next page) 
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PROGRAM STRUCTURE (continued) 





Sample division with structural units identified. 


division entries 
sections — 
paragraphs —_ 

[C =f 

fT = 

a 

| Cee 


(3/66) 








u ER. 
So Bbeisea lea rT i 
AAAEAEAARRAARALAEEOERAE ae 
! ERPS GRE RS 












cl | BESS RERRETEE 
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PROGRAM CONTENTS 


Identification division. The Identification division contains . 
information that identifies the program. It is intended, for the most 
part, to inform people who read the program. 2 4 


At the very least, the division states the name of the program. 
Usually it contains further information about the program, such as 


when the program was written and who the programmers were. There may 
also be remarks that explain the data processing job for which the 
program was written. 


Environment division. The Environment division contains information 
about the equipment that will be used when the object program is | 
compiled and executed. Most importantly, it ties together the devices 
of the computer system and the data files that will be processed. 


The model numbers of the System/360s on which the program will be 
compiled and run may be given. Each data file, by name, is assigned 
to an input-output device. Sometimes, special input-output 
techniques are specified. 


Data division. The Data division describes the data to be processed 
by the object program. It describes the data items that make up each 
of the files named in the Environment division, and in addition, 
describes the data items that make up working-storage -- such as 
constants and work areas. 


Entries in this division show how the data items are grouped and 
organized into records and files. Data names, pictures, and other 
information about the data items are given. 


Procedure division. The Procedure division specifies the actions 

that are required.to process the data. Also, it indicates the order 
in which the actions are to be carried out, and provides for alternate 
paths of~wetion under given conditions. 


The main types of actions that may be specified are input-output, 
arithmetic, data movement, and sequence control. 
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Identification Division 





IDENTIFICATION DIVISION ENTRIES 


Unquestionably the simplest division, the Identification division is 
only required to have the following three entries: 


®@ Division header 
e PROGRAM-ID paragraph header oir rat rare Cite, fCowed 
e Program name, enclosed in quotation marks ( & 


“go & Figc Bl eg Os 
The division may also contain up to six additional paragraphs. Fixed 
names are provided for these paragraphs(AUTHOR, INSTALLATION, DATE- 
WRITTEN, DATE-COMPILED, SECURITY, and REMARKS), but the programmer is 
free to write any number of entries in each paragraph, and to give any 
desired information in the entries. The entries may contain any 
characters and words, including reserved words. 


Sample Identification diviston. 


























aa Heeea ae Te | 
sree HHAHAAEAHAAIAASGO AALS HARARE 
i | ol OF! lrult's' ipiRiolriam [ils! ‘a |re'polrit! olF! ||| tt 
a eka eae fle Pv 


| THE 5 
“for! Ebel Monti “alwo ils bufstleurelo 
“Tait puleichlas|iivel RlePlRelseNlaT ves. 


















tus! lg PlulricHla'sitinic\ ‘RIEIcoR!D 3 ale ALE 
_ J SORTED! (BY) PUIRICHIAISE! JDIAITE! WITHIN clomMOp I Ty|.! | | | 
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ENVIRONMENT DIVISION ENTRIES 


The Environment division may have two sections, the Configuration 

section and the Input-Output section. The Configuration section 

identifies the source and object computers. The Input-Output section 

(required in all programs that process input or output files) assigns 

.files to input-output devices and may specify special input-output 
techniques. 


Sample Environment division. 





ueae MERE Peer BEeae 
souidcedowebire | BULDRELEAAAAARUAGAAOEEIE 
anaSTEECS BERGER ERRLARLESRESI RELA ERO REREE 








EER eeEERES TEE a 4 
olBly| =COMPUITER | ers Hill 

|| {| i/eM—lielo SEE TTTEEEE 
COCA 
INP! OUTPUT, SECIT ON. _ BEI S REE CIE aa Tee 


EGER REE ALAR STARS ERR ERAR REE EEE 

Fiercownron. TCT 
uercecsen PURCHASING SEE ff 
| Li isisien, {rol | PURMAls| UNIT-RECORD 21540 jut | 
C1 PURCHASE REPORT AF | wel ti PEE] 
Titi t ty lalsisilen! ilo! |iRleliol2i7:"| lulwiitr'ecolro ‘1Ja/o/s! luinulr. | 

tte TRTPTe Perce peer 
fi-io-icowriRole[ | TTT TT TT TTT TTT REGURERSEERRE SHES) 

| iAPIPiLly! it isi-Llne (al Fora ovea FLiow | | {titty | 
CCT Ton! Pluchlaisie jrlePiorrir'r[ AGG: RRBAERRERGRE 





















(Continued on next page) 
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ENVIRONMENT DIVISION ENTRIES (continued) 


System/360 model numbers. The Source-Computer and Object-Computer 
paragraphs may give a model number that consists of a letter followed 
by a number, for instance, F40. The letter designates the main core 
storage capacity of the computer, according to the following code: 


C = 8,192 bytes G = 131,072 bytes 
D = 16,384 H = 262,144 

E = 32,768 I = 524,288 

F = 65,536 


The number that follows the letter designates the System/360 model. 
The number 50, for example, means System/360 Model 50. 


Assignment of files to input-output devices. Files are assigned to 
devices in the File-Control paragraph. For every file, there is an 
entry that selects the file by name, and assigns it to an "external" 
name and to a device. 


Poi fry eis'ah7 fui 1] 





renee Rt a) Mae 
file external device device 
name name clase number 

e File name is the programmer-supplied name by which the file is 


referred to in the COBOL progzam. 


e External name (always enclosed by quotation marks) is the name 
by which the file will be identified on a job control card at the 
time that the object program is executed. 


e Device class can be UTILITY, DIRECT-ACCESS, or UNIT-RECORD. 


The UTILITY class is composed of machines that can read and write 
data sequentially -- magnetic tape, disk, drum, and data cell 
devices. The DIRECT-ACCESS class is composed of machines that can 
read and write data randomly -- disk, drum, and data cell devices. 
The UNIT-RECORD class is composed of printers and card read/punches. 


e Device number is the IBM number of a specific device. For example, 
2311 means the IBM 2311 Disk Storage Drive. An exception to this 
rule is device number 2400, which stands for any of the magnetic 
tape units in the IBM 2400 series (2401, 2402, 2403, or 2404). 
Device number is sometimes omitted. 
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DATA DIVISION ENTRIES 


The most commonly used sections of the Data division are the File 
section and the Working-Storage section. The File section contains 
descriptions of the data files to be processed by the program, and 
descriptions of the data records in those files. The Working-Storage 
section contains descriptions of work areas and constants. 


Sample Data division, 
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DATA DIVISION ENTRIES (continued) 


Sample Data division (continued). 
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DATA DIVISION ENTRIES (continued) 


Another sample Data division, with entry types identified. 
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SYSTEM/360 COBOL TERMS FOR UNITS OF DATA 


Item: an area used to contain data of a particular kind. (In general, 


an "item" is the same as a "fielda".) 


Group item: an item that is composed of smaller items. 
Elementary item: an item that is not composed of smaller items. 


Independent item: any item that is not a record and not a part of a 
record. Must be an elementary item. Used as a work area or to contain 


a constant. 


Data record: the most inclusive item, usually (though not always) a 
group item comprising several related items. Sometimes spoken of as 
the "logical record". (Whenever the term "record" is used in COBOL, 
data record is implied -- unless label record is specified.) 


Label record: a record that contains information about a file. 

Label records are normally written in files stored on magnetic tape 

or direct-access devices. Some files (such as card files) do not have 
label records. | 


Block: . a unit of data, containing one or more data records, that is 
transferred to or from main storage at one time by an input-output 
device. Sometimes spoken of as the “physical record". When data 
records are stored on magnetic tape or direct-access devices, each 
block generally contains more than one data record. 


File: a collection of related data records. The records in a file 
may have the same or different lengths and formats. 
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‘PILE DESCRIPTION ENTRY 


For each file, there is a file description entry in the File section 
of the Data division. The entry consists of a level indicator and the 
file name, plus clauses that describe how many records or characters a 
block contains, how many characters are in a record, what the recording 
mode is, whether there are label records, and what data records are in 
the file. The file description entry will be followed by a record 
description for each type of record in that file. 


Fol | prooetulsaicerituel (TTT TTT 
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Level indicator. File description entries always begin with a level 
Indicator. A level indicator is a special, two-letter reserved word. 
The level dgadestee that is used most often is FD, which stands for 

File Description. 


File name. The programmer-supplied name of the file always follows 


the level indicator. 


(Continued on next page) 
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FILE DESCRIPTION ENTRY (continued) 


RECORDING MODE clause. The RECORDING MODE clause specifies whether the 
recording mode in this file is V, F, or U. The clause may appear as 
RECORDING MODE IS U, but it can also be abbreviated to RECORDING MODE U, 
or simply RECORDING U. The clause may be omitted when the recording 
mode is V. 


e "Recording mode" means the same as "data record format". The 
three permissible recording modes are V (Variable length), 
F (Fixed length), and U (Unspecified length). 


® Recording mode V is the only mode in which blocks of two or more 
variable-length records can be handled. However, it is also 
possible to have just one record per block and to have fixed 
record lengths in this mode. The distinguishing feature of mode V 
is that each data record includes a record-length field and each 
block includes a block-length field. These fields are not 
described in the Data division, because provision is automatically 
made for them. 


e In recording mode F, all of the records in a file are the same 
length. Blocks may contain more than one record, and there is 
generally a fixed number of records per block. In this mode, 
there are no record-length or block-length fields. 


e Mode U records may be either fixed or variable in length; however, 
there is only one record per block. There are no record-length or 
block-length fields. 


BLOCK CONTAINS clause. The BLOCK CONTAINS clause tells either how 
Many records are in a block, or how many characters are in a block. 


When the number of records per block is given, the clause may appear 
as BLOCK CONTAINS 25 RECORDS, or simply BLOCK 8 RECORDS. If the 
number of records in a block varies, the clause tells only how many of 
the longest records would form the longest possible block. The clause 
may be omitted when there is only one record per block. 


When the number of characters per block is given, the clause specifies 
the number of bytes that the longest block will occupy in storage. 


(Continued on next page) 
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FILE DESCRIPTION ENTRY (continued) 


RECORD CONTAINS clause. The RECORD CONTAINS clause specifies how many 
Characters are in the longest data record in the file. More precisely, 
it specifies how many bytes the longest record will occupy in storage, 
for instance, RECORD CONTAINS 140 CHARACTERS. It may also give the 
range of record sizes, as RECORD CONTAINS 82 TO 540 CHARACTERS, or in 
abbreviated form RECORD 80 TO 160. This clause may be omitted, since 
the compiler can determine the size of records from the record 
descriptions. 


LABEL RECORDS clause. A LABEL RECORDS clause is required to appear in 
every Eile description entry. The clause may indicate that label 
records are standard, it may give a name for label records, or it may 
state that label records are omitted. 


e When the clause states that LABEL RECORDS ARE STANDARD, it means 
. that the labels have the standard System/360 label format. In this 
case, the labels are checked or created automatically, and the 
label records are not described in the COBOL program. 


& When a name is given, for example, LABEL RECORDS ARE 
BALANCE-TOTALS, it means there are user labels in addition 
to standard labels. Such additional label records are 
described in the Linkage section of the Data division 
(not in the File section), and are processed by "declarative" 
procedures (separate from the main body of the Procedure 
division). 


e LABEL RECORDS ARE OMITTED means either that the file has no 
labels at all (as in the case of a card file), or that the 
file has non-standard labels. (As a rule, non-standard label 
records are treated as if they were data records. Each label 
is defined as a separate file, described as a record in the 
File section, and processed in the main body of the Procedure 
division.) 


DATA RECORD clause. The DATA RECORD clause gives the name of each 

erent nd of record in the file. For example, DATA RECORDS ARE 
SALES, RETURNS, PAYMENTS, CHARGES. There must be at least one kind of 
record in the file, and there may be several kinds, so this clause 
appears in every file description entry. Below the file description 
entry, there must appear a record description entry for every record 
that is named in this entry. 
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RECORD DESCRIPTIONS 


At least one record description will be found below each file description 
entry. A record description is written for each type of record in the 
file; for example, if a file contains four types of records, there will 
be four record descriptions below the file description entry. 


A record description shows the structure of the recerd: the order in 
which items appear in the record, and how the items are related to each 
other. For every item, there is an item description entry that begins 
with the level number of the item. 


oi! | PUliciHia tive TT 
re CToe! | Welcolur. CECE CEC PE 
iT TT Tos ciatelcioRy | | ttt tpuictriulmle! Ixixi.| | ttt | 
hu umBeR! ||| [tT [plictiuire! folleph.t | tt tT 
aT istriatriu's—clobe | 17111 fenleiriurel x] TTC 
| toa! | Irirlasialcirfiow. | TTT TTT TTT TTT 
iT ols! | Weiwblok TET TTT TT TTT TTT TTT 
Ee 428. NAME, {JP ICTURE, RL 28). 

Iti fola! | iviumeler! ||| | eiictluire! foley}! | Lt TTT 

| Ts purchase. TCT TT 
tL | ola | foamed 
COTE Cob! | Mohn eiieatumet eat CTCL | 
Pre TT ols! | olay) || felicriuimle! foiot| | ty tT 
ttt TT | ols! | ivielaiet ||| [eiiicitiuime! jolol.! ||| tT | 
itt | ola | famouinir) | ||| | [eiicitiuire! jol(apivisiol.| || id 


e Record descriptions always begin with an entry for the level 01 
item, which is the record as a whole. Usually, the record is 























subdivided, and entries for items that make up the record appear 
below the level 01 entry. 


e The item description entries are made in the order in which 
items appear in the record. 


e An entry for a group item is followed by entries for the items 
that make it up. A group item comprises all the items described 
under it, until a level number equal to or less than the level 
numbers of the group item is encountered. 


@ Item description entries are usually indented to help the reader 
comprehend the structure of the record. The entries for each 
level are indented more than the entries for the preceding 
level. Indenting is not required, however. 


e Level 88 (condition name) entries may appear in a record 
description. These are not item description entries, and can 
be ignored when the structure of a record is being analyzed. 


® Sometimes a record is treated as an elementary item, with no 


subdivisions. In such a case, the level 01 entry is the only 
item description entry in the record description. 
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ITEM DESCRIPTION ENTRIES 


There is a separate item description entry for each item. An item 
description entry always begins with a level number, followed by 
either a name or the word FILLER, and usually includes one or more 
descriptive clauses that begin with words like USAGE, PICTURE, VALUE, 
OCCURS, or REDEFINES. 


al [Isialclalriyi,! lelictrlurle| |s'oi/s)yvei|,) ciolplurair lolniaict3'.. 





ee 


ttem desertptton 
entry 


Level number. A level number is always the first element found in an 


Item description entry. 


Level number 01 indicates that the item is a record. A record is 
generally a group of related items, but it may also be an elementary 
item. 


Level numbers 02 through 49 are used for items that are subdivisions 
of records. 


Level number 77 identifies an independent item, which is an elementary 
item that is not related to other items. An independent item is not 

a record, and not part of a record. Level 77 items are found only in 
the Working-Storage section. 


Level number 88 designates a condition-name entry, which strictly 
speaking, is not an item description at all. Instead, a condition- 
name entry gives a name to one of the values that the preceding item 
can assume. Level 88 entries are found after elementary items only; 
however, sometimes there are two or more consecutive level 88 entries 
after one elementary item. 


| (RCN MOLT a 
Level 


number 





(Continued on next page) 
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ITEM DESCRIPTION ENTRIES (continued) 


Name or FILLER. Every item description entry contains either a 
programmer-supplied name or the reserved word FILLER, following the 
level number. 


A name is a data name if it follows level numbers 01-49 or 77; or it 
is a condition name if it follows level number 88. 


FILLER may be found in place of a name, following level numbers 01-49. 
FILLER is not a name, and therefore, cannot be used to refer to an item 
in a procedure. It is used in descriptions of items that will not be 
referred to, usually because the items will not contain any information, 
or because the information will not be processed. 


data condition 
name names 





FILLER 


(Continued on next page) 


(3/66) 37 


ITEM DESCRIPTION ENTRIES (continued) 


USAGE clause. 


The USAGE clause indicates the code that will be used 
to represent data that is stored in the item. 
descriptions of both elementary and group items. 


It may be found in 
The usage that is 


specified for a group item applies to all of the items in that group. 


The words that specify usage are DISPLAY, COMPUTATIONAL, 


COMPUTATIONAL-1, COMPUTATIONAL-2, and COMPUTATIONAL-3. 


The word 


USAGE, or the words USAGE IS, may also appear in the clause, but these 


words are optional and generally not written. 


So if an item's usage 


is computational, the usage clause will probably consist of the single 
word, COMPUTATIONAL, but it may also be USAGE COMPUTATIonal, or USAGE 


IS COMPUTATIONAL. 


The word DISPLAY is also optional, and is often not written. 


The 


usage of an elementary item is assumed to be display if some other 
usage is not specified for it or for any group item that it is part of. 
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What the usage words indicate: 


If the usage is Then the data code is 


display external decimal --- 


also called BCD (binary- 
coded decimal), or EBCDIC 
(extended binary coded 

decimal interchange code) 


computational 


computational-1 
computational-2 


computational-3 


internal floating-point, 
short (full word) format 


internal floating-point, 
long (double word) format 





internal decimal --- 
also called packed 
decimal 
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Which means that 


one character is stored in each byte of the 

item; if the item is used to store a number, 
the rightmost byte may contain an operation- 
al sign in addition to a decimal digit 


one binary digit is stored in each bit of 
the item, except the leftmost bit, in which 
the operational sign is stored 


the item has a special format designed for 
floating-point arithmetic operations; 

part of the item is stored in binary code, 
and part in hexadecimal code 


two decimal digits are stored in each byte 
of the item, except the rightmost byte, 

in which one digit and the operational sign 
are stored 
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ITEM DESCRIPTION ENTRIES (continued) 


PICTURE clause. PICTURE clauses are found only in descriptions of 
elementary items. They are required for all elementary items except 
those whose usage is computational-1 or computational-2. (These 
floating-point items are not given pictures because they have a definite 
storage format.) 


A picture always tells how many characters will be stored and what 
kinds of characters they will be. The characters that an item will 
contain are represented by picture characters such as X, A, or 9. 
The picture character 9, for example, represents one decimal digit; 
so, the picture 999 stands for three decimal digits. 


In addition to characters with symbolic meanings, pictures often 
include numeric literals (unsigned whole numbers only) enclosed in 
parentheses. Such numbers are a shorthand way of repeating picture 
characters. The number is parentheses tells how many consecutive times 
the character in front of the parentheses is repeated; in other words, 
X(6) is another way of writing XXXXXX, and $9(9) means the same as 
S999999999, 


PICTURE clause 


a. 


and also 
spossibiy) 


| one or more Xs | characters of any kind; 
} letters, digits, special 
| characters, or spaces 


| one or more As 





| one or more 9s, 8 ae ies —T ; numeric only digits, and possibly 
| but no editing AYA an operational sign 
symbols 


one or more 9 ; I>] | | report numeric data that is 
editing symbols;. JEAPARYCACSEARS tai edited with spaces or 
2 * $§ . certain special characters 
» DB CR when the data is moved 
- 0 B | : | into the item 


an E, a A Oe SG Ea } external ] a decimal quantity in an 
in addition ; ZS JY | floating-point edited floating-point 
| to 9a | format that includes 
spaces or certain special 
| characters 





Note: Pictures of all kinds of items may contain numbers in parentheses. 


(Continued on next page) 
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ITEM DESCRIPTION ENTRIES (continued) 


PICTURE clause (continued) 


What some common picture characters mean. 





Each X stands for one character of any kind -- a letter, digit, special character, 
or space. The picture X(12) indicates that the item will contain twelve characters, 
but gives no indication of what characters they will be; all twelve could be spaces, 
or all could be digits, or there could be a mixture of various kinds of characters. 


Each A stands for one letter or space. 


Each 9 stands for one decimal digit. Numbers are always described in terms of the 
decimal digits they are the equivalent of - even. when the data code is binary. 


S indicates that the number has an operational sign. An "operational" sign tells the 


computer that the number is negative or positive; it is not a separate character that 
will print as "+" or "=", 


V shows the location of an assumed decimal point in the number. An "assumed" decimal 
point is not a separate character in storage. 


Each P stands for an assumed zero. Ps are used to position the assumed decimal point 
away from the actual number. For example, an item whose actual value is 25 will be 
treated as 25000 if its picture is 99PPPV; or as .00025 if its picture is VPPP99. 


How picture and usage are related. Certain combinations of picture and 
usage are not compatible. For instance, an alphabetic item cannot 
possibly be computational, because letters cannot be represented in 
binary; this item -- in fact, any item that will store letters, spaces, 
or special characters -- must have display usage... Therefore, the 
following kinds of items can only have display usage: alphanumeric, 
alphabetic, report, and external floating-point. 


Digits, on the other hand, can be stored in any data code; so numeric. 


items can have any usage: display, computational, computational-1, 
computational-2, or computational-3. 


Conversely, these rules mean that a display item might have any kind of 
picture; but that an item with other than display usage can ante have a. 
numeric picture. (Except that computational-1l and computational-2 
items have no pictures at all.) 


(Continued on next page) 
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ITEM DESCRIPTION ENTRIES (continued) 


VALUE clause. The VALUE clause consists of the word VALUE, or the 
words VALUE IS, followed by a literal. 


This clause is mainly used to assign initial values to certain 
elementary data items, in particular, to constants. The value assigned 
to an item remains constant during the execution of the object program, 
unless it is changed by a procedure in the program. (This use of the 
VALUE clause is permitted in the Workin -Storage section, but not in. 
the File section.) 
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A different use of the VALUE clause is found in level 88 (condition- 
name) entries. There the clause specifies the data value which the 
condition name will represent. (This use of the VALUE clause is 

permitted in both the File section and the Working-Storage section.) 
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VALUE elause 
- OCCURS clause. An OCCURS clause indicates that an item is repeated 
with no change in its usage or picture. It specifies the number of 
times the item is repeated, for instance, OCCURS 100 TIMES, or just, 


OCCURS 100. OCCURS clauses are used to define groups of identical 
items that will store related information, such as data tables. 
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ITEM DESCRIPTION ENTRIES (continued) 


REDEFINES clause. A REDEFINES clause signifies that this entry gives 
another name and description to an item that was just previously 


described. The word REDEFINES is written right after the data name, 
and is followed by the name of the item that is being redefined. 


When an item is redefined, a new area of storage is not set aside for 
it; instead, the same area of storage may be called by this name as 
well as by the previous name. Redefining is done when different names 
or descriptions are desired for the same item, for instance, when the 
item may hold different kinds of information, or may be processed in 
different ways, under different conditions. 


"ACCOUNT" te being 
redefined. 


“| Toa! | lalcicolulwa tT elichrurel ei? T TTT TTT 
‘oz! | [elise R! REDE! Ne's| laiciclountl,| [lijctuRe, x!(|7/)) 
fe ee 


REDEFINES clause 





"LEDGER" wttl oecupy the same 
storage area as "ACCOUNT" 
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Procedure Division 





PROCEDURE DIVISION ENTRIES 


The Procedure division generally consists of a series of paragraphs, 
which may optionally be grouped into sections. Each paragraph has 
a programmer~-supplied name, and may contain a varying number of 
entries. 


Sample Procedure division, 


PirioceiluRel ollvilsioln TTT TTT TTT TTT 
EAAESR TEE BERGRARR ERR ARER EUR RRRERRDE RARE 
IINIG|-|0 p08 tH tt 
BRNESSTAISSNGNSNTOTACNT GeFiiule.! | TTT TT 
| A se ee tit 
TO) HASE IREPORT! | | | | I | 
4 LIREIAD| {PIUIRICHAISHIN | st 
T ND op TTT TTT 


Fille 
GiO 











317 



























DETAIL PROCES. ERRELERERRELAELAR RRA RR AE 
T MGhET GKIveRy Get obadoblihiy| ho loco-ntobaleles CL 
coor eloidotpt ity UIMIBIE|R| CAR SREREOE PORARRE CoE 
LLM | plelsicr PIT VON! ‘oF! [clommiolo.tiTly! [rt To LITE 
an doubdooliniv=wabde TT TPT 
LT Molviel [ojaltie! lor} lPlulricHaisle! ‘tol Pulricialsiel-[piairie!.| | [| 
CEE MoMel lulviifris-iplulaclalslebol rol loluant rt TTT 
LETT Molviel_luiniilt—Iclolsit] itlo! (clolsit-lpleiR—lulniuit).| | Et | LT 
[TL Molvel [rloltfaicl-Iclolstr] [rio] lpluir'iclu{alslel-Iclolsit]./ [Tt | iy 1 
tL wool lulnititis!-leluiriclnialslejol ttiol lalulantliitiv-|riolriaiu!.| | | || 
| LL { alplol [rfoitiale-Iclolsit] [tol _lelujrlciulalsle!-Icloisitiriolriai!.[ | [| 
LL valet iclalsite|el inlet, | wirliitie! leluiriclulaisielriePlolriti-|eiinlel | 
PELL laletrele| lalo[viainicliinig] lols] leluisiel weliilel | i tit i || 
Litt ttt leluiricyjaisic-Hrlelploiritu]iivle|_lalritlelr| lalpiviainic/tinig|_[11. 






















(Continued on next. page) 
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PROCEDURE DIVISION ENTRIES (continued) 


Sample Procedure division (continued) . 


RIE|ADI-INE|x|T|-cla oree ee nen Oe eee Dees Deed Deee baa 
[TTT ialelaloy lrlulelcals[iiwictrlielels] TET TTT TT eae 
Litt | lait! fe 2 fe 8 a ENO AES EB tb 
” LitlF| INUMIBIEIR| ol] IclomMiobliitiy! [i[s! Nojt! leiqulau! [rio | | | | | | | 
rottteee NIUMBIER),| [PERFORM |ToTAlL|Rio\ulT INE. ott 
LTT tool fol [oleltiaittpirolce'ssiiinigl | Tit TTT TTT TT TT TTT 
aneeaeee Ene SAMAAAHEAGEGNSABMUIIGHOIGHGIGABUEIEOE 


Zz 
é 





na ‘ls cle RICH Line tt tt tT 
{TL Molwel Jalu ais ahi otra] Io! aluantimr| TECTED 
(||| Mowel [plu RICHASHE COST TOTALL To, PURCHASE COST. 

Li {| Molvel izeRols! [rol laulainiriiftiyi-tlolriaict,! | TT TT Ti TT Tt TT 
Litt it [] [Pluie pase career ETT 
LLL] weiiitlel [Pluiricidialsielrleliolr{r4u] [Niel alritielR| Ao'viainccl [nic] | 
RERGOEEIERE SETAE TL TRA 


| EERE tH ERERRERRRES 
CLT Hele rlolnln rola Pebble TT DASUROUAAGREBAAIE 


-—-HELOSE FMRCHAS NGF ILE. PURCHASESREPORTOAILE. | 
pap SER AY IPIUIRICIHIA's|e| IRIE! Dee eS sr 


PORT] [FINI SHE 
Tt TT uel Icloifslollel TT TTT TTT TTT TTT TTT TTT TT TTT 
TTT ishrlolel lui TTT TTI TTT 
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PROCEDURES 


rocedure is a paragraph or section in the Procedure division. 
Prete ures contain two kinds of entries: header entries and sentences. 
Hence, any entry (in a procedure) that is not a header is a sentence. 
A sentence, in turn, is composed of one or more statements that specify 
actions. Most statements begin with a verb that indicates the action 
to be taken (for instance, MOVE, ADD, READ, GO, or STOP); some 
statements begin with the word IF, which calls for the testing of a 
condition. 


(3/66) 


The shortest procedure is a paragraph pousieeeng of a header 
entry and one sentence. 





A longer procedure may contain several sentences. The paragraph 
header may optionally appear on a line by itself. 


iivseRTNew-Recorbl TTT To 
{|| Molviel |clairjo—r'elcior’| [rol loluitipluir—rleiciorol.| || | | 
rite euceur-necono.d (PTT TTT 


AIRIOF i Lie's! | | | 






(idol rid _ielsirale coke. TT PTT 


A sentence may contain only one statement (as in the above 
examples), or more than one statement (as shown below). 


TTT MoWVel InlaMel trol TeMelovelel, | Miowel (TTT TTT TTT 
CCE Tisiole| alu -slelcueliiriv—IvuMelelr! [lol laclcowumirl,| (1111 
[| TT talpio| fy] [lol inuMiplelk! lolr| Irirlaislalcriiois.| | | {| | | | 














Every procedure has a programmer<-supplied name, which is 
given in the header entry. This name is used to refer to 
the procedure, for instance, when specifying a branch to 
the procedure. 
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PROCEDURAL WORDS 


The most commonly used actions are listed below, alphabetically. 
The function of each word is summarized, and a sample sentence using 
the word is given. 


\. ACCEPT, Input. Obtains up to 80 characters of data from the system 
input device (which might be a disk file, tape drive, card reader, etc.), 
or up to 72 characters from the console keyboard. Used to read low- 
volume data, such as information needed to initialize program switches, 
balance totals, or serial numbers. Not used to read files of data 
(see READ). 


| Tit eebt icloniloinirlonbath lon TTI Ea 





‘\ ADD. Arithmetic. Adds two or more numbers. Puts the sum into the 
data item named after the word TO, unless there is a GIVING clause. 
If GIVING is specified, the sum is put into the data item named after 
the word GIVING, and it is edited according to the item's picture; the 
value of this item is not added. (Numbers can also be added by using 
the verb COMPUTE.) 





art ea RE Gbe Wacbavil SveRMiMeEeaN boNua CTU 
ICT Ceiiviinel nlomakCewRWebl TUTTI TLUL. 





\\CLOSE.' Input-output. Terminates the processing of one or more data 
files.' Such actions as checking and creating end-of-file labels are 
done automatically when a file is closed. Used after processing is 
finished for any file that was opened (see OPEN). 


[11 Ticklolslel Totlo-Malstrelk/Feliilel,] IvleW-mlalsirelelteiulel.[ | [11] 


\ COMPUTE. Arithmetic. Computes the value of the data item, literal, 
or formula written to the right of the equal sign; and puts that value 
into the item named after the verb. Can add, subtract, multiply, 
divide, or exponentiate numbers; or combine these operations. 
(May be used in place of the other arithmetic verbs: ADD, SUBTRACT, 
MULTIPLY, DIVIDE.) Edits the result according to the receiving item's . 
picture. 


TT icoMPbire WiirHlHol bfrinie-rlakl T= 7 lel mf Terblsise HT TT a 
COC TT NuMalelel-olr -oeIprehblenrisl @ hisl.TT PET LET 











(Continued on next page) 


(3/66) 48 





PROCEDURAL WORDS (continued) 


\) DISPLAY. Output. Puts data out on the system output device (which 
might be a disk file, tape drive, etc.), for printing later. Can also 
punch out data, or type it on the console typewriter. Data displayed 
cannot exceed 120 characters when put on the system output device, but 
cannot exceed 72 characters if punched or typed. Used for low-volume 
output, such as exception records or messages to the operator. 

Not generally used to write files of data (see WRITE). 


[ToliseLlayl T'Rlelclolrb! Ivubelel TT Tifreh-ivbiMelekt [TTT TTT 
a TTT Vils| lolulr| lole] [slelolufeinicle] | lulploln| Icfolwistolvle!.| | | [| 









\, DIVIDE. Arithmetic. Divides one number into another. Puts the quotient 
into the data item named after the word INTO, unless there is a GIVING 
clause. If GIVING is specified, the quotient is put into the data item 
named after the word GIVING, and it is edited according to the item's © 
picture; the value of this item is not used in the division. 

(Numbers can also be divided by using the verb COMPUTE.) 


U PLT lvoe jumbel-oF-stub ents iro (TTT TTT 
| Islumi-tolri—lal.~elriaipelsi,| leliiviiig | TTT TTT TT TTT 
PCrHHT eect ieaabe LM rte 





GO TO. Sequence control. Causes a branch to a - procedure in the program. 
The normal flow of control is resumed at the beginning of that procedure. 
(Contrast with PERFORM, which causes a return branch as well.) 





~ IF. Sequence control. Causes alternate paths of action to be taken, 


depending on whether it finds the description of a data condition to 

be true or false when it evaluates the data. The word IF is followed 

by the description of the condition, followed by the actions to be taken 
if the description of the condition is true. Then, optionally, may 

come to the word ELSE or OTHERWISE, followed by the actions to be taken 
if the description of the condition is false. 


TT TFUoleiwiaino! [iis{ Telelalriel| Train] (sirfoick/-fol-Hlainfol, | TTT 
[Ht ae: Peabo a BIAIcK|—lRDEIRIs|, | | 











ET ie baal sa 
aa rt su DEMAND: FROM STOICK—CN-HAND. Sates 


(Continued on next page) 
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PROCEDURAL WORDS (continued) 


\) MOVE. Data movement. Moves data from one area of main storage to 
another. Converts the data (for instance, from decimal to binary) if 
required to fit the description of the receiving item. Edits the data 
(inserts, deletes, or replaces characters) if the picture of the 
receiving item calls for it. 


TTT WoWvel Tclulelelelvir/-lelailalnicel trio! [aMoulwt'=iolulel fiw TTT 
UIT ITT Ielusiriometrilelitelt TT ti PT 










‘\, MULTIPLY. Arithmetic. Multiplies one number by another. Puts the 
product into the data item named after the word BY, unless there is a 
GIVING clause. If GIVING is specified, the product is put into the 
data item named after the word GIVING, and it is edited according to 
the item's picture; the value of this item is not multiplfed. 
(Numbers can also be multiplied by using the verb COMPUTE.) 


Cit othhtech lobe hiv eht tab else ToT 
Cee eee EM REMURRCOReML TT errte tL LL 









NOTE. Program comments. Allows programmers to write explanatory . 
sentences which will be printed in the program listing, but which 
serve no other purpose during compilation. A note can be any length 
and can contain any words or characters. If NOTE is the first word of 
a paragraph, all of the sentences in the paragraph are treated as notes. 


. LTT pict It Trelist lotr el [code ies| ie| [elle T 
LETT iT TT lelublele! lelalciriolk}.! lulslelo! [i[n! DielrelRMi init ile! | | 
Litt TT iRelojolele| |ploli itis! IFfolr| Wii ole ifr's!.! | | | 





\ OPEN. Input-output. Makes one or more data files ready for reading 
or writing. Input files are named after the word INPUT; output files 
after OUTPUT. Such actions as checking and creating beginning-of-file 
labels are done automatically when a file is opened. Opening does not 
make input records available for processing; a READ statement is 
required for that. A file must be open before a READ or WRITE 

. statement can act on it. (See READ, WRITE, CLOSE.) 


TTT iopeein| [iiveluir] fol-fo-Malstriele-llLelt TTT TTT TTT TTT 
LETT TTT friplandslalcttslolelilels! TT TET TTT TTT 
CTT TTT lolulreluir! inlew-Malsiriee-lilvel.! [TTT TTT Ty 







(Continued on next page) 


(3/66) 50 





PROCEDURAL WORDS (continued) 


. PERFORM. Sequence control. Causes a branch to a procedure or series of 

Vprocedures, and following their execution, a return branch to the state- 
ment after the PERFORM statement. Sets up the linkage for procedures to 
serve as closed subroutines. Also used to control the execution of 
loops. (Contrast with GO TO, which causes a branch but not a return.) 


(UT PelrFloleiulolistclolunirclaticucalrion§ TTT 7 © 





\, READ. Input. Makes a data record from an input file available for 
processing. For sequential files, such as tape and card files, the 
READ statement contains an AT END clause, which specifies actions that 
are to be taken after the last record of the file has been processed. 
A READ statement is valid only if the file is open (see OPEN). 


“relab| [plela-lolabliwelleiilels| TTT TTT TTT TTT TTT 
tt || fait! lelwio..! Icio! fro! Iclfolsel-lrliwielsi.! |] | TTT ty IY 






STOP. Sequence control. Stops the execution of the object program, 
either permanently or temporarily. If STOP is followed by the word RUN, 
execution is stopped permanently; this would be done at the end of the 
job, or when a serious data error made it impossible to continue the 
run. If STOP is followed by a literal, such as a message to the 
operator, the literal is typed out and then execution is delayed until | 
the operator takes required steps; execution is resumed at the statement 
after the STOP statement. 


[Ti Tistiobl kw TTT TTT 


\ SUBTRACT. Arithmetic. Subtracts one or more numbers from another 
number. Puts the difference into the data item named after the word 
FROM, unless there is a GIVING clause. If GIVING is specified, the 
difference is put into the data item named after the word GIVING, and 
it is edited according to the item's picture; the value of this item 
is not used in the subtraction. (Numbers can also be subtracted by 
using the verb COMPUTE. 


[istuisirielalch| Isla Nels|—eoNbls|,[TeLueCerblss. TTT 
il TT Iclylaie}iriv-Icloinirirpulriiioln|s! Frio lelalriniilnisis!.| | | || 













\ WRITE. Output. Releases a record for an output file. The actual 
transfer of this record to an output device may not occur until sometime 
later; in particular, if there are to be two or more records per block, 
the record may be held until there are enough records to fill a block. 
When the record is to be printed or punched, the WRITE statement contains 
an AFTER or AFTER ADVANCING clause to specify carriage control or stacker 
selection. A WRITE statement is valid only if the file is open (see OPEN). 


TTT welifrel Trinvelriolrv-irlelcolriol| T TTT TT TTT TTT TT 
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TEST-CONDITIONS 


Types of conditions that can be tested in IF statements. 


Relation test. Consists of two "operands" with relational words or 
Symbols written between them. Compares the values of the operands to 
see if their relation is the same as specified. 


Relations that can be specified: EQUAL TO [=], NOT EQUAL TO [NOT =], 
GREATER [>], NOT GREATER [NOT >], LESS [<], NOT LESS [NOT <«]. 


The operands may be data items, literals, and arithmetic expressions. 
A data item may be compared with another data item, with a literal, or 
with an arithmetic expression. An arithmetic expression may also be 
compared with a literal, or with another arithmetic expression. Two 
literals may not be compared. 


When an arithmetic expression is written in a conditional statement, 
the value of the expression is calculated first, before the comparison 
is made. 


TTT ile lelalviwelnir[ [ifs] Iclelsis! Wrlulain| [rlelv[i ouls-islal falnicle| Te 
tit] iclulgiRleinit!Jamowinit—Dplule | bii'sicountr | || | | | 
LTT TTT | Ilo! iro! Pajrir aL Pal MENIT RGRRGIREEA 





Sign test. Consists of the name of a data item, or an arithmetic 
expression, followed by the specification of a sign condition. 
Determines whether the number, or the value of the arithmetic 
expression, matches the specified condition. 


Sign conditions that can be specified: POSITIVE, NOT POSITIVE, 
NEGATIVE, NOT NEGATIVE, ZERO, NOT ZERO. The value zero is considered 
to be neither positive nor negative. (For a zero item in storage, 
the sign, if any, is ignored.) 


TT Tile Tolelreleleliclel Tiisl bloshimiMen! TTT TTT TTT TTT mE 
PUT TT loliiviilole! [oli FFlelRleiviclel [1 iv/riol falclolumul Tairie bl-Irlotriat 


Note: A sign test is another way of stating a relation test for numbers, 
since "positive" means greater than zero, "negative" means less than 
zero, and “zero" is, of course, equal to the literal "0". 





(Continued on next page) 


(3/66) 52 





TEST-CONDITIONS (continued) 


Condition-name test. Consists of a name called a "condition name", 
with no other words or symbols. Tests whether a data item has a 
specific value; however, neither the name of the data item nor the 
value are written in the IF statement. 


CTT] IcloMlirieir'-lplrioiielaimmelny TT TTT TTT TTT TTT TTT 
ae CHIC Pleilrtolead [sla lleiv-lincRelase=TCTTP ETE CLT 






The condition name represents the condition that exists when the data 
item has a specific value. It is defined in the Data division, where 
the condition name and the value may be found in a level-88 entry, 
following the description of the data item which is to be tested. 


Here is how the condition name used in the above example might be 
defined: 








TT olel fololetfelcaiststiiriifclalt fon-cfoplel, | ehictriu'rlel_ tele). 11 
CHEEET Cele! Ielopblrleleeinlolmabiteta.| Iviatdel Iriel TELL 


Interpretation of this example: A job-classification code is one of 
the data items in the records that are to be processed. The name 
COMPUTER~PROGRAMMER represents the code value 72. Therefore, the IF 
sentence above means, "If the record contains job code 72, perform 
the salary-~increase procedure." 





Note: A condition-name test is another way of testing whether a data 
item is equal to a literal. 


(Continued on next page) 
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TEST-CONDITIONS (continued) 


Overflow test. A special type of condition-name test. Determines 
whether the forms in a printer are at the end of a page. (The end of 
a page is recognized when the printer senses a hole punched in channel 
12 of the carriage control tape.) 


{it irl fPlaigleqiislrlueeht | Tit tT TT 
tT MATE! JOVIERDIVEalccOuUNIT LINE! [AlFiTelR] || | | 

Litt | isikiilPlpliiniel-itol-Iwieixit[lplaigle is! | || tt tt TTT | TT 
tt tT | foltHleR Ww t/siel/ WIR/ TIE} lolVielRiDUe|—alcicloluinT|—'L t Ne} 
UTA TTT AelrielR! [sllalciiinje|2ieliintels|./ |] Lit Et TTT Ty 













The form-overflow condition name is defined in an APPLY entry in the 
Environment division. Here is how the name used in the above example 
might be defined: 


{Talley Tplalele|-[fs[rlulch] trol [rlolr—lolvlelrl[ufow [TT | |] 
Ltt | || join} jojvielRiojulellalc|ciolulnire je} risitjijnigl., | | Tit tT Tt TT 









Class test. Consists of the name of a data item followed by the 

specification of a class. Examines the item to see if the data it 
contains belongs to the specified class. Classes that can be specified: 
ALPHABETIC, NOT ALPHABETIC, NUMERIC, NOT NUMERIC. 


TYCRIATT Ne! [is AC PABETTg, TTT 
CE dat or eect Pec eee CECE CEH 






An item is 

e alphabetic if it consists only of letters, and possibly spaces. 
@ not alphabetic if it contains any digits or special characters. 
e numeric If It consists only of digits, and possibly an 


Operational sign. 
e not numeric if it contains any spaces, letters, or gaa 


Characters. 
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FLOW OF CONTROL 


The way in which control flows through procedures in a COBOL program 
represents the sequence in which instructions in the object program 
will be executed. How control will flow depends on the kinds of 
statements in the Procedure division, and their arrangement. 


Startin oint. Control starts at the first statement of the first 
procedure in the division, provided that there are no declaratives. 
If there are any declaratives, control starts at the first procedure 
after the END DECLARATIVES entry. — 


e Declaratives are special, optional procedures that are grouped 
together at the beginning of the Procedure division. Declarative 
procedures are logically separate from the main body of the 
Procedure division; that is, they cannot be affected by the 
flow of control through other procedures. 


e If the program contains declaratives, a DECLARATIVES header 
will appear on the line after the PROCEDURE DIVISION header, 
and an END DECLARATIVES header will appear on the line after 
the last declarative procedure. 


Sequence. Control automatically flows from one statement to the 
next statement in sequence, and from one paragraph to the next, 
except when 


e a GO TO statement causes a branch. 

e an IF sentence causes control to jump over certain statements. 

® a PERFORM statement gives control temporarily to another 
procedure. 

e a STOP statement causes a delay in execution, or terminates 
the run. 


Branching. When a GO TO or PERFORM statement causes a branch to a 
procedure, control is transferred to the first statement of that 
procedure. It is permissible for a GO TO statement to send control 
back to the beginning of the procedure that the GO TO is part of. 


(Continued on next page) 


(3/66) 55 


FLOW OF CONTROL (continued) 


Flow of control through an IF sentence that does not contain ELSE 
OTHERWISE. 





DESCRIPTION OF 
DATA CONDITION 
IS FALSE 








DATA |S 
EVALUATED 








DESCRIPTION OF 
DATA CONDITION 
IS TRUE 


STATEMENTS UP TO THE 
PERIOD ARE ACTED ON 


Example. 


TTT TT lel felalclainiclel fils] Ielelairiiwel tl TTT TTT TTT TT 
2} Move sa aNciel Is LN our FAVOR | 
ist TT TT a TTT TT TT trio) Melsisialclellairlelal | [Ti TTT TTT TTT 
THEE TTT thet beobieer a kkt recom ttt ttt 


The data item (BALANCE) is evaluated to see if it is negative. If it 
is negative, the statements on lines 2-3 are acted on, and then control 







passes to the next sentence (line 4). If BALANCE is either positive 
or zero, control jumps directly to the next sentence (line 4) 


(Continued on next page) 
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FLOW OF CONTROL (continued) 


Flow of control through an IF sentence that contains ELSE or OTHERWISE. 








DESCRIPTION OF 
DATA CONDITION 
1S FALSE 





DATA tS 
EVALUATED 









DESCRIPTION OF 
DATA CONDITION 
IS TRUE 





STATEMENTS UP TO 
ELSE OR OTHERWISE 
ARE ACTED ON 


STATEMENTS AFTER ELSE 
OR OTHERWISE, UP TO 
THE PERIOD, ARE ACTED ON 


Example. 


Lat TTT lel Ir eicoMelet [ifs Mott lemenient fibda TT TTTTTT 
al ttt ischrall-pllinr. iT TTT TTT TT TTT TT 
List {Titi | Foe ehchbeisent mol CTTCtttteet ttt 
lat TTT oo eet TEM pf 
ist {i tii TT Wain! frleiciolvieiry| Ir! Isiclelalels [TT TTT TTT TTT 
| el | TERUNS SAM AE ee 

7 Welle! Icolnislelriviaitiion-Irleicior|ol.! ||| || ttt 
{1 lel | | 1 loo! |i] {rio} Iirainisiaicirifonl-lcloulniri.| ||| TT TTT tT 


RECOVERY is compared with SCRAP-POINT. If RECOVERY is equal to or less 
than SCRAP-POINT, the conditional description is true, so the statements 
on lines 3-5 are acted on, and then control jumps to the next sentence 
(line 8). If RECOVERY is greater than SCRAP-POINT, the conditional 
description is false, in which case control jumps to lines 6-7, and 
then passes to the next sentence (line 8). 
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Case Study 











CASE STUDY. Customer billing program. 


Input. Billing record. 






ACCOUNT IDENTIFICATION 
ACCOUNT NUMBER CYCLE NAME ADDRESS STATE CODE LIMIT 
LAST YEAR 
' BALANCE ACTIVE PURCHASES RETURNS 


THIS YEAR TO DATE 
“yg | MONTHS | 
MONTHS | “Over TOTAL 

ACTIVE 90 PURCHASES 


PURCHASES PAYMENTS CREDITS 
Y BILLING NUMBER CURRENT [ 
BALANCE 


DATE va NUMBER AMOUNT | NUMBER | AMOUNT NUMBER AMOUNT ( 


TRANSACTIONS. | 










CREDIT STATUS __ {|< 





















|'LAST MONTH ———sd 





Qutput. Monthly statement. 


Ue ate | ie i 
i es 4 is 
aveptonaau serrate [5]6]7[8]91011 [213/415 16/7 [8i9l ol [21314 3/4/5/6]7/8 | 
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CASE STUDY (continued) 


Identification division. 


FUEETASUAGAUOUEEE 
auTMor.| || | it | | | 
L| || Paul Melt icHia 
eee a 
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CASE STUDY (continued) 


Environment division. 


SRT Ea SUOMI TTT TTT TTT 
| how) TTT 
Beee | REGREED SER Beh 






Aeeae RERERRIERRRE 
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CASE STUDY (continued) 


Data division. 
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CASE STUDY (continued) 


Data division (continued). 
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CASE STUDY (continued) 


Data division (continued). 
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CASE STUDY (continued) 


Procedure division. 
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